home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 050 / powertb.arc / TESTDIR.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-02-24  |  106 b   |  7 lines
  1. {$i treedirs.inc}
  2.  
  3. begin
  4.    chdrive('b:');
  5.    writeln(currentdrive,currentdir(currentdrive));
  6. end.
  7.